10 REM   TURTLE GRAPHIC ROUTINES
20 REM     BY RICHARD HOLLERAN
30 B=0:S=32793:E=S+191:T=24272:GOSUB80
40 S=E+1:E=S+191:T=22492:GOSUB80
50 S=E+1:E=S+179:T=22229:GOSUB80
60 POKE1,55:SYS33299:POKE1,54:COLR6,14
70 END
80 B=B+1:CK=0:FORA=STOE:READD:POKEA,D
90 CK=CK+D:NEXT:IFT=CKTHENRETURN
95 PRINT"[147]"SPC(210)"ERROR IN BLOCK #";B:END
99 REM   BLOCK #1
100 DATA 136,31,0,0,0,135,70,0,0,0,131,22,203,227,248,123
110 DATA 14,250,53,18,128,64,0,0,0,160,15,132,151,185,24,128
120 DATA 153,9,128,136,208,247,132,251,169,96,133,252,152,145,251,200
130 DATA 208,251,230,252,16,247,32,145,179,32,155,128,169,59,160,198
140 DATA 162,125,141,17,208,140,0,221,142,24,208,96,169,27,160,199
150 DATA 162,21,208,238,32,235,183,138,10,10,10,10,5,20,162,92
160 DATA 134,252,162,95,160,0,132,251,145,251,200,208,251,230,252,228
170 DATA 252,176,245,96,32,158,173,165,102,73,255,133,102,80,3,32
180 DATA 158,173,169,40,160,128,32,40,186,169,20,160,128,32,103,184
190 DATA 162,20,160,128,32,215,187,32,100,226,162,0,160,128,32,215
200 DATA 187,169,20,160,128,32,162,187,32,107,226,169,45,160,128,32
210 DATA 40,186,162,5,160,128,76,215,187,32,235,183,134,2,169,199
219 REM   BLOCK #2
220 DATA 229,2,201,200,176,66,170,41,7,168,165,21,240,9,74,208
230 DATA 55,165,20,201,64,176,49,169,12,133,252,138,41,248,170,42
240 DATA 38,252,42,38,252,42,38,252,101,20,41,248,133,251,165,21
250 DATA 101,252,133,252,138,74,74,74,101,252,133,252,165,20,41,7
260 DATA 170,177,251,29,209,129,145,251,96,133,251,160,128,32,162,187
270 DATA 165,251,73,10,160,128,32,103,184,166,251,160,128,32,215,187
280 DATA 32,155,188,165,101,166,100,96,32,158,173,165,102,48,46,32
290 DATA 57,129,134,26,56,176,26,169,10,32,34,129,133,20,134,21
300 DATA 169,15,32,34,129,208,7,166,151,240,3,32,219,128,165,25
310 DATA 56,233,1,133,25,165,26,233,0,133,26,16,218,96,233,85
320 DATA 133,151,32,115,0,208,251,96,162,45,76,181,128,138,48,8
330 DATA 72,32,101,128,104,76,59,164,76,116,164,162,0,160,0,189
339 REM   BLOCK #3
340 DATA 217,129,209,122,208,4,232,200,16,245,41,127,209,122,208,24
350 DATA 189,218,129,72,189,219,129,72,152,24,101,122,133,122,165,123
360 DATA 105,0,133,123,76,115,0,232,189,217,129,16,250,232,232,232
370 DATA 189,217,129,16,200,76,165,169,128,64,32,16,8,4,2,1
380 DATA 82,69,83,69,212,128,49,72,73,82,69,211,128,84,84,69
390 DATA 88,212,128,100,67,79,76,210,128,108,76,69,70,212,128,140
400 DATA 82,73,71,72,212,128,151,80,76,79,212,128,209,77,79,86
410 DATA 197,129,64,84,65,73,204,129,118,255,169,160,133,252,160,0
420 DATA 132,251,177,251,145,251,200,208,249,230,252,36,252,80,243,169
430 DATA 129,141,1,3,141,18,3,141,6,168,169,134,141,0,3,169
440 DATA 129,141,17,3,169,148,141,5,168,162,0,160,92,24,32,153
450 DATA 255,76,2,228